object frmClientes: TfrmClientes
  Left = 242
  Top = 137
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 
    'PROFESTA - Pessoas (F'#237'sicas, Jur'#237'dicas, Fornecedores e Usu'#225'rios ' +
    'do Sistema)'
  ClientHeight = 535
  ClientWidth = 774
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDesktopCenter
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object lbCPF: TLabel
    Left = 246
    Top = 48
    Width = 27
    Height = 18
    Caption = 'CPF:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'Calibri'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lbNome: TLabel
    Left = 246
    Top = 74
    Width = 42
    Height = 18
    Caption = 'Nome:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'Calibri'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lbTipoPessoa: TLabel
    Left = 27
    Top = 26
    Width = 168
    Height = 18
    Caption = 'Selecione o tipo de Pessoa:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Calibri'
    Font.Style = []
    ParentFont = False
  end
  object Label1: TLabel
    Left = 245
    Top = 27
    Width = 373
    Height = 18
    Caption = 'Informe os dados abaixo para cadastrar ou localizar a Pessoa:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Calibri'
    Font.Style = []
    ParentFont = False
  end
  object LbAjudaCadastroPessoas: TInternetLabel
    Left = 707
    Top = 8
    Width = 33
    Height = 13
    Cursor = crHandPoint
    Caption = 'Ajuda'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold, fsUnderline]
    ParentFont = False
  end
  object btbtnAlugar: TBitBtn
    Left = 523
    Top = 291
    Width = 67
    Height = 25
    Caption = 'Alugar'
    Enabled = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Calibri'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = btbtnAlugarClick
  end
  object btbtnHistorico: TBitBtn
    Left = 603
    Top = 291
    Width = 145
    Height = 25
    Caption = 'Consultar Hist'#243'rico'
    Enabled = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Calibri'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnClick = btbtnHistoricoClick
  end
  object edcpf: TMaskEdit
    Left = 299
    Top = 48
    Width = 126
    Height = 21
    Hint = 'Informar CPF ou CNPJ para busca ou novo cadastro'
    EditMask = '000\.000\.000\-00'
    MaxLength = 14
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    Text = '   .   .   -  '
    OnExit = edcpfExit
    OnKeyPress = edcpfKeyiPress
  end
  object radiofisica: TRadioButton
    Left = 27
    Top = 49
    Width = 113
    Height = 17
    Caption = 'Pessoa F'#237'sica'
    Checked = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Calibri'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = False
    TabOrder = 0
    TabStop = True
    OnClick = radiofisicaClick
  end
  object radiojuridica: TRadioButton
    Left = 27
    Top = 71
    Width = 113
    Height = 17
    Caption = 'Pessoa Jur'#237'dica'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Calibri'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    OnClick = radiojuridicaClick
  end
  object grupoDadosCliente: TGroupBox
    Left = 19
    Top = 316
    Width = 729
    Height = 211
    Caption = 'Dados da Pessoa'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Calibri'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    object lbRua: TLabel
      Left = 16
      Top = 60
      Width = 27
      Height = 18
      Caption = 'Rua:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Calibri'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbNumero: TLabel
      Left = 570
      Top = 56
      Width = 55
      Height = 18
      Caption = 'N'#250'mero:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Calibri'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbComplemento: TLabel
      Left = 16
      Top = 93
      Width = 93
      Height = 18
      Caption = 'Complemento:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Calibri'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbEstado: TLabel
      Left = 580
      Top = 23
      Width = 45
      Height = 18
      Caption = 'Estado:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Calibri'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbCidade: TLabel
      Left = 16
      Top = 24
      Width = 47
      Height = 18
      Caption = 'Cidade:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Calibri'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbTelefone: TLabel
      Left = 16
      Top = 128
      Width = 59
      Height = 18
      Caption = 'Telefone:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Calibri'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbEmail: TLabel
      Left = 271
      Top = 128
      Width = 43
      Height = 18
      Caption = 'E-mail:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Calibri'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 88
      Top = 148
      Width = 88
      Height = 18
      Caption = '(xx) xxxx-xxxx'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Calibri'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 328
      Top = 148
      Width = 119
      Height = 18
      Caption = 'xxxxxx@xxx.xxx.xx'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Calibri'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 570
      Top = 93
      Width = 78
      Height = 18
      Caption = 'Fornecedor?'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Calibri'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lberronumerotelefone: TLabel
      Left = 16
      Top = 166
      Width = 307
      Height = 14
      Caption = 'N'#250'mero de telefone s'#243' permite n'#250'meros, () * e espa'#231'os.'
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -12
      Font.Name = 'Calibri'
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object edRua: TEdit
      Left = 80
      Top = 57
      Width = 465
      Height = 26
      Hint = 'Digite o nome da Rua'
      CharCase = ecUpperCase
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnKeyPress = Enterpulaparaproximo
    end
    object edNumero: TEdit
      Left = 640
      Top = 54
      Width = 73
      Height = 26
      Hint = 'O n'#250'mero pode conter alfanum'#233'ricos para contemplar casos como 1A'
      CharCase = ecUpperCase
      Enabled = False
      MaxLength = 6
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnKeyPress = Enterpulaparaproximo
    end
    object edComplemento: TEdit
      Left = 128
      Top = 90
      Width = 417
      Height = 26
      Hint = 'Exemplo: Bairro Uvaranas'
      CharCase = ecUpperCase
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnKeyPress = Enterpulaparaproximo
    end
    object edCidade: TEdit
      Left = 80
      Top = 21
      Width = 465
      Height = 26
      Hint = 'Digite o nome da Cidade'
      CharCase = ecUpperCase
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnKeyPress = Enterpulaparaproximo
    end
    object cbboxEstado: TComboBox
      Left = 640
      Top = 19
      Width = 73
      Height = 26
      Hint = 'Selecione o Estado'
      Style = csDropDownList
      Enabled = False
      ItemHeight = 18
      MaxLength = 2
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnKeyPress = Enterpulaparaproximo
      Items.Strings = (
        'AC'
        'AL'
        'AM'
        'AP'
        'BA'
        'CE'
        'DF'
        'ES'
        'GO'
        'MA'
        'MG'
        'MS'
        'MT'
        'PA'
        'PB'
        'PE'
        'PI'
        'PR'
        'RJ'
        'RN'
        'RO'
        'RR'
        'RS'
        'SC'
        'SE'
        'SP'
        'TO')
    end
    object edTelefone: TEdit
      Left = 81
      Top = 122
      Width = 153
      Height = 26
      Hint = 'Informe o telefone de contato'
      CharCase = ecUpperCase
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      OnKeyPress = Enterpulaparaproximo
    end
    object edEmail: TEdit
      Left = 328
      Top = 125
      Width = 217
      Height = 26
      Hint = 'Informe o e-mail de contato'
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 7
      OnKeyPress = edEmailKeyPress
    end
    object Btnconcluircadastro: TBitBtn
      Left = 172
      Top = 181
      Width = 122
      Height = 25
      Caption = 'Concluir cadastro'
      Enabled = False
      TabOrder = 8
      OnClick = BtnconcluircadastroClick
    end
    object BtnCancelaredicao: TBitBtn
      Left = 16
      Top = 181
      Width = 122
      Height = 25
      Caption = 'Cancelar'
      Enabled = False
      TabOrder = 9
      OnClick = BtnCancelaredicaoClick
    end
    object btnfechar: TBitBtn
      Left = 584
      Top = 181
      Width = 122
      Height = 25
      Caption = 'Fechar'
      TabOrder = 10
      OnClick = btnfecharClick
    end
    object CmbFornecedor: TComboBox
      Left = 653
      Top = 90
      Width = 60
      Height = 26
      Hint = 'Indique se a Pessoa '#233' um Fornecedor'
      Style = csDropDownList
      Enabled = False
      ItemHeight = 18
      ItemIndex = 0
      MaxLength = 2
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      Text = 'N'#227'o'
      OnKeyPress = Enterpulaparaproximo
      Items.Strings = (
        'N'#227'o'
        'Sim')
    end
  end
  object edNome: TEdit
    Left = 299
    Top = 73
    Width = 449
    Height = 21
    Hint = 'Digite o nome da Pessoa'
    CharCase = ecUpperCase
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnChange = edNomeChange
  end
  object BtnAlteraDadosCliente: TBitBtn
    Left = 19
    Top = 291
    Width = 121
    Height = 25
    Caption = 'Alterar dados'
    Enabled = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Calibri'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = BtnAlteraDadosClienteClick
  end
  object dbgridClientes: TDBAdvGrid
    Left = 19
    Top = 100
    Width = 729
    Height = 185
    Cursor = crDefault
    ColCount = 2
    RowCount = 2
    FixedRows = 1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSelect]
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 8
    OnClickCell = dbgridClientesClickCell
    ActiveCellFont.Charset = DEFAULT_CHARSET
    ActiveCellFont.Color = clWindowText
    ActiveCellFont.Height = -11
    ActiveCellFont.Name = 'Tahoma'
    ActiveCellFont.Style = [fsBold]
    Filter = <>
    FixedColWidth = 20
    FixedRowHeight = 22
    FixedFont.Charset = DEFAULT_CHARSET
    FixedFont.Color = clWindowText
    FixedFont.Height = -11
    FixedFont.Name = 'Tahoma'
    FixedFont.Style = [fsBold]
    FloatFormat = '%.2f'
    PrintSettings.DateFormat = 'dd/mm/yyyy'
    PrintSettings.Font.Charset = DEFAULT_CHARSET
    PrintSettings.Font.Color = clWindowText
    PrintSettings.Font.Height = -11
    PrintSettings.Font.Name = 'Tahoma'
    PrintSettings.Font.Style = []
    PrintSettings.FixedFont.Charset = DEFAULT_CHARSET
    PrintSettings.FixedFont.Color = clWindowText
    PrintSettings.FixedFont.Height = -11
    PrintSettings.FixedFont.Name = 'Tahoma'
    PrintSettings.FixedFont.Style = []
    PrintSettings.HeaderFont.Charset = DEFAULT_CHARSET
    PrintSettings.HeaderFont.Color = clWindowText
    PrintSettings.HeaderFont.Height = -11
    PrintSettings.HeaderFont.Name = 'Tahoma'
    PrintSettings.HeaderFont.Style = []
    PrintSettings.FooterFont.Charset = DEFAULT_CHARSET
    PrintSettings.FooterFont.Color = clWindowText
    PrintSettings.FooterFont.Height = -11
    PrintSettings.FooterFont.Name = 'Tahoma'
    PrintSettings.FooterFont.Style = []
    PrintSettings.PageNumSep = '/'
    ScrollWidth = 16
    SearchFooter.FindNextCaption = 'Find &next'
    SearchFooter.FindPrevCaption = 'Find &previous'
    SearchFooter.Font.Charset = DEFAULT_CHARSET
    SearchFooter.Font.Color = clWindowText
    SearchFooter.Font.Height = -11
    SearchFooter.Font.Name = 'Tahoma'
    SearchFooter.Font.Style = []
    SearchFooter.HighLightCaption = 'Highlight'
    SearchFooter.HintClose = 'Close'
    SearchFooter.HintFindNext = 'Find next occurence'
    SearchFooter.HintFindPrev = 'Find previous occurence'
    SearchFooter.HintHighlight = 'Highlight occurences'
    SearchFooter.MatchCaseCaption = 'Match case'
    Version = '2.1.6.0'
    AutoCreateColumns = True
    AutoRemoveColumns = True
    Columns = <
      item
        Borders = []
        BorderPen.Color = clSilver
        CheckFalse = 'N'
        CheckTrue = 'Y'
        Color = clWindow
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        HeaderFont.Charset = DEFAULT_CHARSET
        HeaderFont.Color = clWindowText
        HeaderFont.Height = -11
        HeaderFont.Name = 'Tahoma'
        HeaderFont.Style = []
        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
        PrintFont.Charset = DEFAULT_CHARSET
        PrintFont.Color = clWindowText
        PrintFont.Height = -11
        PrintFont.Name = 'Tahoma'
        PrintFont.Style = []
        Width = 20
      end
      item
        Borders = []
        BorderPen.Color = clSilver
        CheckFalse = 'N'
        CheckTrue = 'Y'
        Color = clWindow
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        HeaderFont.Charset = DEFAULT_CHARSET
        HeaderFont.Color = clWindowText
        HeaderFont.Height = -11
        HeaderFont.Name = 'Tahoma'
        HeaderFont.Style = []
        PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
        PrintFont.Charset = DEFAULT_CHARSET
        PrintFont.Color = clWindowText
        PrintFont.Height = -11
        PrintFont.Name = 'Tahoma'
        PrintFont.Style = []
        Width = 20
      end>
    DataSource = dsclientes
    ShowUnicode = False
    ColWidths = (
      20
      20)
  end
  object btnsalvaredicao: TBitBtn
    Left = 146
    Top = 291
    Width = 122
    Height = 25
    Caption = 'Salvar edi'#231#227'o'
    Enabled = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Calibri'
    Font.Style = []
    ParentFont = False
    TabOrder = 9
    OnClick = btnsalvaredicaoClick
  end
  object queryclientes: TZReadOnlyQuery
    Connection = Frmsenha.conn
    AfterOpen = queryclientesAfterOpen
    Params = <>
    Left = 747
    Top = 23
  end
  object query2: TZReadOnlyQuery
    Connection = Frmsenha.conn
    Params = <>
    Left = 747
    Top = 87
  end
  object dsclientes: TDataSource
    DataSet = queryclientes
    OnDataChange = dsclientesDataChange
    Left = 712
    Top = 26
  end
end
